(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     50213,       1256]
NotebookOptionsPosition[     40227,       1041]
NotebookOutlinePosition[     40899,       1067]
CellTagsIndexPosition[     40819,       1062]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"93dadd47-3088-4ed5-83b7-50dc33496711"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"fb94f481-d22a-4033-abba-8051ad8c78f8"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"49725add-c52c-42aa-8be0-3cadb4fc38c5"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"ac4b02d2-968c-481a-842d-ff52447834c0"]
}], "History",
 CellID->1247902091,ExpressionUUID->"612fdf3e-8c10-4462-9ddb-ea0ecd2ff352"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"57d20473-07f0-43e8-92b3-265380fd2444"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"bae616d2-63c1-499f-8b25-4bf19fc44cd5"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836728811953*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"be95b7e4-c8ac-4b51-88c5-50b36e7fdeaf"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836729070777*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"bcfa5e36-8c84-4ae0-94a7-f097f6bfb0ec"],

Cell["MaXrd/ref/DarwinWidth", "Categorization",
 CellChangeTimes->{3.7438367293954906`*^9},
 CellLabel->"URI",ExpressionUUID->"91a8060e-55cc-483e-8b3c-a71d47c5fee8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"2966f816-dae4-42fa-b55a-a323941ab013"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"8fc50a80-e45f-4216-ab5f-1a80291c320d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"d97a6f11-0f28-4050-a954-e879cd37c4fa"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"c0861ac3-41c7-484c-8fe7-0c1003d54e78"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"c1885ae9-9644-4053-b16c-356b531d7d2a"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"6063ff89-6c86-42f7-ad78-2dae9a8abdc2"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"81636f6b-af2d-4534-bfb7-e68f381943fc"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"5dd94c94-37bf-469a-866e-cd950d4fdb3e"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"9d52bdea-2ed0-483e-b489-f992f15f2e10"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"d14f8529-fc63-45c9-8656-12001ef9489b"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"64a0dd09-8b54-41cd-9ed0-c3758ea866be"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"f673a2cd-dc9f-4a84-bed1-d32eb98874a6"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"02c220fe-6362-42b0-a2f0-43e073c4d1a9"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"2f98b245-5e7d-41db-855a-ee418a8e6681"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"c633fa7f-10db-405b-9b94-bcc0e4f4ffbd"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"3cd4a843-3e43-4574-9fe9-0dcd4896bf67"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"ae793c94-8f28-486d-bbce-c2272a60dc7c"]
}, Closed]],

Cell[CellGroupData[{

Cell["DarwinWidth", "ObjectName",
 CellID->1224892054,ExpressionUUID->"4be18f1d-0981-4644-8a3e-ce9afe477d82"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"921c0d0e-3d96-485e-8527-88765f84509a"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["DarwinWidth",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/DarwinWidth"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["h", "TI"], ",", 
      StyleBox["k", "TI"], ",", 
      StyleBox["l", "TI"]}], "}"}]}], "]"}]], "InlineFormula",ExpressionUUID->
  "b3b634b9-7066-414b-8cb5-5b8a8eb740d6"],
 " \[LineSeparator]calculates the Darwin width of the ",
 Cell[BoxData[
  StyleBox["hkl", "TI"]], "InlineFormula",ExpressionUUID->
  "46c8118a-5029-4d7f-9961-e68d041a772d"],
 " reflection for ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "b4a227d4-704a-43e7-b076-c1588c79e5d3"],
 " at the stored wavelength.\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "cef0a101-8485-454d-bf8a-35574c009c55"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["DarwinWidth",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/DarwinWidth"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    StyleBox["\[Lambda]", "TR"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["h", "TI"], ",", 
      StyleBox["k", "TI"], ",", 
      StyleBox["l", "TI"]}], "}"}]}], "]"}]], "InlineFormula",ExpressionUUID->
  "69b5ced4-8519-4233-97d8-879ae5f0f0be"],
 "\[LineSeparator]calculates the Darwin width of the ",
 Cell[BoxData[
  StyleBox["hkl", "TI"]], "InlineFormula",ExpressionUUID->
  "499c8a5e-6c76-42e9-8d45-78b6a719f417"],
 " reflection for ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "64665d5a-32a8-4c3d-ab23-25ac12ef511e"],
 " at wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "7118379c-78f0-4fd5-b1a9-00b5d729656d"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "48942c37-3cef-4e7b-9591-f212d543f36e"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["DarwinWidth",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/DarwinWidth"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    StyleBox["\[Lambda]", "TR"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["h", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["k", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["l", "TI"], 
         StyleBox["1", "TR"]]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["h", "TI"], 
         StyleBox["2", "TR"]], ",", 
        SubscriptBox[
         StyleBox["k", "TI"], 
         StyleBox["2", "TR"]], ",", 
        SubscriptBox[
         StyleBox["l", "TI"], 
         StyleBox["2", "TR"]]}], "}"}], ",", 
      StyleBox["\[Ellipsis]", "TR"]}], "}"}]}], "]"}]], "InlineFormula",
  ExpressionUUID->"6fd906af-2cf3-4040-9ea0-cc09d5881971"],
 "\[LineSeparator]calculates the Darwin width of the ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["hkl", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "85e82d5f-6718-4708-ac50-f0bd42d81d76"],
 " reflection for ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "3134e96f-b137-406a-b76e-c0a195b0f14f"],
 " at wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "2f4884cf-b4ee-4245-a9e0-5a758811f6dd"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "454d6219-348c-44cb-b6b1-e55682ddcce0"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["DarwinWidth",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/DarwinWidth"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    StyleBox["\[Lambda]", "TR"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["h", "TI"], ",", 
      StyleBox["k", "TI"], ",", 
      StyleBox["l", "TI"]}], "}"}], ",", 
    SubscriptBox[
     StyleBox["\[Gamma]", "TR"], 
     StyleBox["o", "TI"]], ",", 
    SubscriptBox[
     StyleBox["\[Gamma]", "TR"], 
     StyleBox["h", "TI"]]}], "]"}]], "InlineFormula",ExpressionUUID->
  "1a8e382d-a43d-4f74-9bce-353faa5c4216"],
 "\[LineSeparator]calculates the Darwin width of the ",
 Cell[BoxData[
  StyleBox["hkl", "TI"]], "InlineFormula",ExpressionUUID->
  "2f0d19c2-720a-440d-b7f5-7caf072960f0"],
 " reflection for ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "59475750-9110-4521-a6dd-2f93ba7fbbf1"],
 " at wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "ede0ea95-51f9-416d-a5bc-fa6253370c45"],
 ", using the factors ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "o"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"758ed29f-2716-47e3-95d5-f68d1f21c237"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "h"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"c4184af5-27c9-4aa8-9f23-f87190f79203"],
 " of the experimental setup."
}], "Usage",
 CellChangeTimes->{{3.7150694133694077`*^9, 3.715069423714649*^9}, {
  3.715069611095252*^9, 3.715069672674201*^9}, {3.730060079229398*^9, 
  3.730060228648073*^9}, {3.730060865799645*^9, 3.730060865799952*^9}, {
  3.730398460989543*^9, 3.7303984903675413`*^9}, {3.7303985374372263`*^9, 
  3.7303985552651987`*^9}, {3.735279170931944*^9, 3.7352791709322777`*^9}},
 CellID->982511436,ExpressionUUID->"d5b2b517-b745-4bfe-adf8-b3ae449b7588"],

Cell[TextData[{
 "The Darwin width (",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", " ", 
    SubscriptBox["\[Delta]", "os"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"ac25af00-9764-48e0-a705-a2d747856446"],
 ") is calculated from equation (4.26) [",
 ButtonBox["Authier, 2001",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://books.google.no/books/about/Dynamical_Theory_of_X_Ray_\
Diffraction.html?id=uW9B_ZwoM-QC&redir_esc=y"], None},
  ButtonNote->
   "https://books.google.no/books/about/Dynamical_Theory_of_X_Ray_Diffraction.\
html?id=uW9B_ZwoM-QC&redir_esc=y"],
 "]:"
}], "Notes",
 CellChangeTimes->{{3.659716969587063*^9, 3.6597170115676394`*^9}, {
   3.659717131527252*^9, 3.6597171365728073`*^9}, {3.6597171725890837`*^9, 
   3.659717177051944*^9}, {3.659717408864444*^9, 3.6597174711144123`*^9}, 
   3.6597175264685*^9, {3.6597198602309732`*^9, 3.659719904315444*^9}, {
   3.6597200431233053`*^9, 3.6597200431250153`*^9}, {3.659720171822521*^9, 
   3.6597201726048717`*^9}, {3.6597202088931007`*^9, 3.6597202142520037`*^9}, 
   3.6597217200824747`*^9, {3.6597217893838882`*^9, 3.659721795191678*^9}, {
   3.669828476569351*^9, 3.669828554815763*^9}, {3.714717631978819*^9, 
   3.714717636628405*^9}, {3.715070392791251*^9, 3.7150703934466143`*^9}},
 CellID->1893739479,ExpressionUUID->"7418550b-5c1c-4e5d-acc2-d3c70b3a0372"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    SubscriptBox[
     StyleBox["\[Delta]",
      FontWeight->"Plain"], "os"], "=", 
    RowBox[{
     StyleBox[
      FractionBox["\[Lambda]", 
       SubscriptBox["\[CapitalLambda]", "o"]],
      FontWeight->"Plain"], 
     FractionBox[
      RowBox[{"\[LeftBracketingBar]", 
       SubscriptBox["\[Gamma]", "h"], "\[RightBracketingBar]"}], 
      RowBox[{"sin", " ", "2", "\[Theta]"}]]}]}],
   FontWeight->"Plain"], TraditionalForm]], "Input",
 CellChangeTimes->{{3.717265393601468*^9, 3.7172654788537283`*^9}, {
  3.717265517758388*^9, 3.7172655723378763`*^9}},
 TextAlignment->Center,
 CellID->1624237561,ExpressionUUID->"0db8fcd3-987b-4826-8d30-debb49625007"],

Cell["\<\
The Darwin width is the full width at half maximum (FWHM) of the rocking \
curve in the transmission geometry, and the width of the total reflection \
domain in the reflection geometry.\
\>", "Notes",
 CellChangeTimes->{{3.715069773311185*^9, 3.715069808091634*^9}},
 CellID->1067943069,ExpressionUUID->"64990321-3621-40bb-9c86-b8038ec82f2b"],

Cell[TextData[{
 StyleBox["Note",
  FontWeight->"Bold"],
 ": If the factor ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "h"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"2b3f1641-8371-4446-80de-11ebf070560d"],
 " is not part of the input, the geometrical factor ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[LeftBracketingBar]", 
     SubscriptBox["\[Gamma]", "h"], "\[RightBracketingBar]"}], "=", "1"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "1b6f6f29-880d-41f7-a920-e0f165e31a7b"],
 ". The factor ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "o"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3799d174-26c8-499f-b44c-59283821c450"],
 " is required to calculate the extinction length ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalLambda]", "o"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"5bebaa42-1ce7-41bd-83e8-3f60a34c6993"],
 "."
}], "Notes",
 CellChangeTimes->{{3.730060264909219*^9, 3.730060351128271*^9}},
 CellID->1681679693,ExpressionUUID->"3a560731-d07d-48b1-ac39-b367e3719c76"],

Cell["Options:", "Notes",
 CellChangeTimes->{{3.71492897284485*^9, 3.714928975071747*^9}},
 CellID->676761489,ExpressionUUID->"ac66bd08-7634-4bc1-ab4a-87103d579cfe"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "7d16dc6b-3198-4961-9ed8-fb5812946477"], "\"\<Polarisation\>\"", 
    "\"\<\[Pi]\>\"", Cell[TextData[{
     "\[Pi] (",
     Cell[BoxData[
      FormBox[
       RowBox[{"C", "=", 
        RowBox[{"cos", " ", "2", "\[Theta]"}]}], TraditionalForm]], 
      "InlineMath",ExpressionUUID->"005d6f08-8594-42cc-aebf-3018ac5257af"],
     ") or \[Sigma] (",
     Cell[BoxData[
      FormBox[
       RowBox[{"C", "=", "1"}], TraditionalForm]], "InlineMath",
      ExpressionUUID->"2c1063ef-10e8-4cf4-a2db-20c58d7a97eb"],
     ") polarisation"
    }], "TableText",ExpressionUUID->"5fcfc8f3-7376-4795-98fa-fc592ac22aa6"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "fdd3b247-7c5f-443f-81ce-a04e65a8b503"], "\"\<Units\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[TextData[{
     "whether to return output as ",
     Cell[BoxData[
      ButtonBox["Quantity",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/Quantity"]], "InlineFormula",ExpressionUUID->
      "d1cfffb3-a68d-4b05-b8cb-73f6e15633a9"]
    }], "TableText",ExpressionUUID->"78a49895-5d65-402e-bdb3-20970156729d"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.714928980857592*^9, 3.7149290425465603`*^9}, {
  3.714929080497106*^9, 3.714929089510721*^9}, {3.717139072269504*^9, 
  3.717139163156084*^9}},
 CellID->410498224,ExpressionUUID->"122801e5-c98f-49bd-b397-4c9afcc0bb7c"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["Chop",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Chop"]], "InlineFormula",ExpressionUUID->
  "b561b2e8-7c16-4b39-9f9a-125091f70a88"],
 " is applied to output with a default tolerance of ",
 Cell[BoxData[
  SuperscriptBox["10", 
   RowBox[{"-", "10"}]]], "InlineFormula",ExpressionUUID->
  "c72a57c1-19cd-4474-bd00-92f05fd214b0"],
 "."
}], "Notes",
 CellChangeTimes->{{3.715070083892115*^9, 3.71507011100441*^9}, {
  3.715070147668157*^9, 3.7150701612368097`*^9}},
 CellID->1532155969,ExpressionUUID->"f39bd35b-7d90-4902-aa71-5e5ecd82e43a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"9f891c0d-a67d-4129-91b7-6866821bd7c1"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"6303d86c-b650-4ce6-9757-bb8ac70a3a1e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"939da9c9-cf32-4843-aaeb-9f89ede1f955"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"6957092e-3ca8-4db7-b6f4-35972687b031"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"ae43e54e-b633-4498-b6de-d64920a8b0a1"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"47e1ae21-0103-4110-a941-1446f5fae577"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"e106f8af-6a41-45f7-a8b1-59f8263f232e"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ExtinctionLength",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ExtinctionLength"]], "InlineFormula",
  ExpressionUUID->"651a3194-a1ed-4a2c-9bbc-d432a1bbcc9a"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactor",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactor"]], "InlineFormula",
  ExpressionUUID->"7e657c97-e805-4642-8c27-a0fdf208ac64"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["BraggAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/BraggAngle"]], "InlineFormula",
  ExpressionUUID->"3e941007-8b50-402b-9b9c-debb25f3a80f"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InterplanarSpacing",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InterplanarSpacing"]], "InlineFormula",
  ExpressionUUID->"4c5a112d-233e-4368-825e-698bcd82b7cb"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"436ef8c6-58e3-4365-b2c0-c2f1e94ab7ab"]
}], "SeeAlso",
 CellChangeTimes->{{3.7287702253968277`*^9, 3.728770229603104*^9}, {
  3.728978552216613*^9, 3.72897856905554*^9}},
 CellID->929782353,ExpressionUUID->"821bf1f1-e0ae-4591-b215-d13056713e70"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"9d31dd4c-fd69-49bc-a64c-4498a5f798bf"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"8836dd98-c1ad-4102-a962-3db8b5151225"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"368056a2-beed-43f6-9622-8369e3972954"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dw", "=", 
  RowBox[{"DarwinWidth", "[", 
   RowBox[{"\"\<Nickel\>\"", ",", "1.1573", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.730012180198142*^9, 3.7300121900283623`*^9}, {
  3.761722324537896*^9, 3.76172232467273*^9}},
 CellLabel->"In[1]:=",
 CellID->1915191534,ExpressionUUID->"98ab30b5-a4c0-4b79-9fbf-8f055dc8ed01"],

Cell[BoxData[
 TemplateBox[{
  "67.38658508097475`","\"\[Micro]rad\"","microradians","\"Microradians\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.761722342096405*^9},
 CellLabel->"Out[1]=",
 CellID->739835458,ExpressionUUID->"189375e1-f983-42bd-b37e-f2532df88d16"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{"dw", ",", "\"\<Millidegrees\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.730014146129423*^9, 3.730014153387734*^9}, 
   3.761722327648847*^9},
 CellLabel->"In[2]:=",
 CellID->1543942913,ExpressionUUID->"0cb93d8d-3921-4672-a0be-66fb1f3d292c"],

Cell[BoxData[
 TemplateBox[{
  "3.8609669209390924`","\"mdegree\"","millidegrees","\"Millidegrees\""},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.730014153641996*^9, 3.730014160417603*^9}, 
   3.730060383961932*^9, 3.7300608429184*^9, 3.730383779454338*^9, 
   3.7303966310065403`*^9, 3.7303973528470287`*^9, 3.761722343159603*^9},
 CellLabel->"Out[2]=",
 CellID->1317266411,ExpressionUUID->"2c68be77-48db-45af-a71b-7498f1ecccc6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "bca374b2-3344-4b6b-a221-723bf3e40ae7"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->2115782080,ExpressionUUID->"cd36143f-b8c8-445c-8f4b-f7a3d8c45cab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DarwinWidth", "[", 
  RowBox[{"\"\<GalliumArsenide\>\"", ",", "1.54184", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.715070172771954*^9, 3.715070181180215*^9}, {
  3.715070249126298*^9, 3.715070259372567*^9}, {3.728624418192766*^9, 
  3.72862442126164*^9}, {3.7286245799641333`*^9, 3.72862458489853*^9}},
 CellLabel->"In[1]:=",
 CellID->734632337,ExpressionUUID->"125c6368-4bb8-4793-9ec7-6d1d14fef282"],

Cell[BoxData[
 TemplateBox[{
  "14.883227154310044`","\"\[Micro]rad\"","microradians","\"Microradians\""},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.715070181789662*^9, {3.7150702506213284`*^9, 3.715070286390078*^9}, 
   3.728624429106086*^9, {3.7286245827718773`*^9, 3.728624587346641*^9}, 
   3.7286756304771214`*^9, {3.728770186105001*^9, 3.728770214299625*^9}, 
   3.730060387603718*^9, 3.730060846066677*^9, 3.730383782964117*^9, 
   3.7303966332109127`*^9, 3.7303973545624027`*^9},
 CellLabel->"Out[1]=",
 CellID->130306162,ExpressionUUID->"e1fe69bc-39a5-4661-a62c-14859f9e9e6a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3b38827b-95ef-462d-a5fa-2e0006d46934"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->123440265,ExpressionUUID->"20f6e2a9-1a83-468b-8d1d-3c4fd52b209c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dw", "=", 
  RowBox[{"DarwinWidth", "[", 
   RowBox[{"\"\<Silicon\>\"", ",", "0.99764", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.715067176347041*^9, 3.715067189082*^9}, {
  3.715067229744532*^9, 3.7150672346338243`*^9}, {3.715070195070623*^9, 
  3.715070281413002*^9}, {3.728624592690188*^9, 3.72862459692953*^9}, {
  3.730060697195237*^9, 3.730060697752482*^9}, {3.730060824054008*^9, 
  3.730060824534*^9}, {3.730396015906392*^9, 3.730396017826199*^9}, {
  3.730396639499621*^9, 3.730396673299635*^9}},
 CellLabel->"In[1]:=",
 CellID->570163944,ExpressionUUID->"ac14fb79-1ee5-4b71-ad20-251f1e134a9f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "20.119134813193483`","\"\[Micro]rad\"","microradians","\"Microradians\""},
    "Quantity"], ",", 
   TemplateBox[{
    "0.7277778237504802`","\"\[Micro]rad\"","microradians","\"Microradians\""},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{{3.730396673624207*^9, 3.730396676253626*^9}, 
   3.7303973575029716`*^9},
 CellLabel->"Out[1]=",
 CellID->819635787,ExpressionUUID->"cfa77a0c-0902-4eee-906f-e7f71d031e64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{"dw", ",", "\"\<ArcSeconds\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.715067190475896*^9, 3.7150671974664297`*^9}},
 CellLabel->"In[2]:=",
 CellID->156216768,ExpressionUUID->"893e7845-57ca-4e79-8789-fe117da5315a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "4.149869444102565`",RowBox[{"\[InvisibleSpace]", "\"\\\"\""}],
     "arc seconds","\"ArcSeconds\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "0.15011495180682624`",RowBox[{"\[InvisibleSpace]", "\"\\\"\""}],
     "arc seconds","\"ArcSeconds\""},
    "QuantityPostfix"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.715067197707884*^9, 3.715067571913128*^9, 3.7150702186909447`*^9, {
   3.7150702696450872`*^9, 3.7150702896812687`*^9}, 3.7286246000181513`*^9, 
   3.728675635568329*^9, {3.728770189175988*^9, 3.728770216616849*^9}, 
   3.730060394446212*^9, 3.730060700473382*^9, {3.7300608264560413`*^9, 
   3.730060848801793*^9}, 3.730383785488605*^9, 3.730396021123445*^9, {
   3.730396636956497*^9, 3.730396676532662*^9}, 3.730397357978902*^9},
 CellLabel->"Out[2]=",
 CellID->1972924637,ExpressionUUID->"14dbe0ab-905b-407e-9ec6-b72a332853e9"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"d51a5eed-0935-4ce8-9aa7-6eff29c0c8e9"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "171babd9-a83f-4f6a-ab79-13a3943242c0"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"cd583f53-e6b5-43ee-8bf7-59dbd220af4e"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "9f8727d3-4343-4d42-b562-e7fc69e1c6bd"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"53f3eae3-63a9-4d74-aeb6-8b063894936e"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "82a7f27d-6e2d-4211-bd9e-c8b661dd3da9"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"3c6a69d7-f37a-444b-a7d7-5e784194557f"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "94619d51-6f29-494d-9d8a-1213195ade0e"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"363efe14-ac83-48cb-9dbe-a6f769061cf9"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "e0051ced-17f1-4294-80ae-cddc5426dbc5"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"a37457e8-0a03-41ef-a94e-58ea2a2dc5cf"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "82deb7f4-e423-480c-8258-63dc1d1cf90c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"cc0cf266-405a-4095-859c-7d24610785f2"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "2b5fb8e9-ae06-457e-a359-d19dd9d1add2"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"ba25c43f-0d77-42ca-966c-7b5df5812c5b"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "011bdd62-38a9-4651-859d-38835c8dc958"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"5b34baa7-e3a6-42b1-829c-e2691fe914e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DarwinWidth", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.70912", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], 
  RowBox[{"(*", " ", "Extinct", " ", "*)"}], "]"}]], "Input",
 CellChangeTimes->{{3.715067277337722*^9, 3.715067292194965*^9}, {
  3.715067378113598*^9, 3.7150673791600122`*^9}, {3.715067476351412*^9, 
  3.715067479236174*^9}, {3.728624724709632*^9, 3.728624737949306*^9}, {
  3.730397379572283*^9, 3.730397381257923*^9}},
 CellLabel->"In[1]:=",
 CellID->454824660,ExpressionUUID->"15c1cd50-9faf-4707-b2a0-4d5b0f6dc425"],

Cell[BoxData[
 TemplateBox[{
  "StructureFactor","extinct",
   "\"The reflection \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"2\\\", \\\",\\\", \\\"3\\\"}], \\\"}\\\"}]\\) is \
systematically absent for space group \
\\!\\(\\*RowBox[{\\\"\\\\\\\"Fd\\\\\\\\!\\\\\\\\(\\\\\\\\*OverscriptBox[\\\\\\\
\\(3\\\\\\\\), \\\\\\\\(_\\\\\\\\)]\\\\\\\\)m:2\\\\\\\"\\\"}]\\).\"",2,1,44,
   26404527605914931591,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.730397362966967*^9, 3.730397386575001*^9}},
 CellLabel->"During evaluation of In[1]:=",
 CellID->524089072,ExpressionUUID->"4fd7c52f-4af7-4ef0-b55f-d07976fbfa07"],

Cell[BoxData["Undefined"], "Output",
 CellChangeTimes->{{3.715067285212349*^9, 3.715067292564996*^9}, 
   3.7150673795163193`*^9, 3.715067469713752*^9, 3.715067572020455*^9, {
   3.717265262234675*^9, 3.717265270280068*^9}, {3.728624730171687*^9, 
   3.7286247433983088`*^9}, 3.728675638673135*^9, 3.728747514593657*^9, 
   3.7287702190179768`*^9, 3.730060411141404*^9, 3.730383787832879*^9, 
   3.730396706725548*^9, {3.730397362973592*^9, 3.730397386595467*^9}},
 CellLabel->"Out[1]=",
 CellID->1534596757,ExpressionUUID->"078712fa-e76f-4c91-b392-51d9e2077793"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "6d5db9da-9aab-4a4c-80b5-4a5d048c1bcc"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"9e115049-a7e2-4feb-b7ed-ef6f8d2516c4"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "47fde628-9cc0-4e55-8778-210fe0dd7ed6"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"9a93682f-a146-45d1-b957-347d5d0c6d68"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"6cced004-edff-44c9-a125-c4bea15b129e"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.7150702984054747`*^9, 3.715070300963731*^9}, {
  3.730060371825132*^9, 3.730060372975716*^9}},
 CellID->1864838535,ExpressionUUID->"05ae52c2-7b11-45fa-acb8-52003533d18b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "DarwinWidth"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<Units\>\"", "\[Rule]", "True"}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"(*", " ", "ExtinctionLength", " ", "*)"}], 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"\"\<Polarisation\>\"", "\[Rule]", "\"\<\[Pi]\>\""}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "DarwinWidth"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_", ",", "_.", ",", "_.", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.714926640095376*^9, 3.714926648623674*^9}, 
   3.715064183906497*^9, {3.715066714738761*^9, 3.71506671898242*^9}, {
   3.728766841930744*^9, 3.728766893633369*^9}, 3.728770289709626*^9, {
   3.75671068623941*^9, 3.7567107090873737`*^9}, 3.7567108714046307`*^9},
 CellLabel->"In[578]:=",
 CellID->1404171876,ExpressionUUID->"6299f8c8-4c2e-4b04-9510-586bbb4cf17f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DarwinWidth", "[", "\[IndentingNewLine]", 
   RowBox[{"crystal_", ",", "\[IndentingNewLine]", 
    RowBox[{"lambda", ":", 
     RowBox[{"_", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"NumericQ", "[", "#", "]"}], "||", 
         RowBox[{"QuantityQ", "[", "#", "]"}]}], "&"}], ")"}]}], ":", 
     RowBox[{"-", "1"}]}], ",", "\[IndentingNewLine]", "hklInput_List", ",", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Gamma]o", ":", 
     RowBox[{"_", "?", "NumericQ"}], ":", "1.0"}], ",", "\[IndentingNewLine]", 
    RowBox[{"\[Gamma]h", ":", 
     RowBox[{"_", "?", "NumericQ"}], ":", "1.0"}], ",", "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
     "hkl", ",", "L", ",", "\[Lambda]", ",", "\[Theta]", ",", 
      "\[CapitalLambda]o", ",", "\[Delta]os"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Check", " ", "input"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"InputCheck", "[", 
      RowBox[{"\"\<CrystalQ\>\"", ",", "crystal"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hkl", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{
       "hklInput", ",", "\"\<Integer\>\"", ",", "\"\<WrapSingle\>\""}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"L", "=", 
      RowBox[{"Length", "@", "hkl"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{"\"\<ProcessWavelength\>\"", ",", "crystal", ",", "lambda"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Miscellaneous", " ", "preparations"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"\[Theta]", "=", 
      RowBox[{
       RowBox[{"BraggAngle", "[", 
        RowBox[{"crystal", ",", "\[Lambda]", ",", "hkl", ",", 
         RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}], "*", 
       "Degree"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[CapitalLambda]o", "=", 
      RowBox[{"ExtinctionLength", "[", 
       RowBox[{
       "crystal", ",", "\[Lambda]", ",", "hkl", ",", "\[Gamma]o", ",", 
        "\[Gamma]h", ",", "\[IndentingNewLine]", 
        RowBox[{"\"\<Polarisation\>\"", "\[Rule]", 
         RowBox[{"OptionValue", "[", "\"\<Polarisation\>\"", "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Darwin", " ", "width"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"\[Delta]os", "=", 
      RowBox[{"2", "*", 
       FractionBox["\[Lambda]", "\[CapitalLambda]o"], "*", 
       FractionBox["\[Gamma]h", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", "\[Theta]"}], "]"}]], "*", 
       RowBox[{"(", 
        FractionBox[
         RowBox[{"1", " ", 
          RowBox[{"(*", " ", "\[Mu]m", " ", "*)"}]}], 
         RowBox[{
          SuperscriptBox["10", "4"], " ", 
          RowBox[{"(*", " ", "\[CapitalARing]", " ", "*)"}]}]], ")"}], "*", 
       RowBox[{"(", 
        FractionBox[
         RowBox[{
          SuperscriptBox["10", "6"], " ", 
          RowBox[{"(*", " ", "\[Mu]rad", " ", "*)"}]}], 
         RowBox[{"1", " ", 
          RowBox[{"(*", " ", "rad", " ", "*)"}]}]], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Delta]os", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"{", 
        RowBox[{"Chop", "@", "\[Delta]os"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Option", ":", " ", "Units"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OptionValue", "[", "\"\<Units\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\[Delta]os", "=", 
        RowBox[{"\[Delta]os", "/.", 
         RowBox[{
          RowBox[{"x_", "?", "NumericQ"}], "\[RuleDelayed]", 
          RowBox[{"Quantity", "[", 
           RowBox[{"x", ",", "\"\<Microradians\>\""}], "]"}]}]}]}]}], "]"}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"L", "===", "1"}], ",", 
       RowBox[{"First", "@", "\[Delta]os"}], ",", "\[Delta]os"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.682327662602072*^9, {3.6824963506791697`*^9, 3.6824963547512217`*^9}, {
   3.682496400113083*^9, 3.682496493228437*^9}, 3.682677149488262*^9, {
   3.685082142306231*^9, 3.6850821530756807`*^9}, 3.685084035768195*^9, {
   3.68655238046353*^9, 3.686552426771611*^9}, {3.6865525950866337`*^9, 
   3.686552685595372*^9}, {3.686635545814003*^9, 3.686635612323032*^9}, {
   3.686645933806924*^9, 3.686646007894505*^9}, {3.686646064248117*^9, 
   3.68664607682882*^9}, {3.686655195368894*^9, 3.6866552343027163`*^9}, {
   3.6866553151103287`*^9, 3.686655409251244*^9}, {3.6866554490764103`*^9, 
   3.686655514039054*^9}, {3.686655580018355*^9, 3.686655635546473*^9}, {
   3.686655748745368*^9, 3.686655776590246*^9}, {3.714925556554666*^9, 
   3.714925578583651*^9}, {3.7149256217212152`*^9, 3.714925689133297*^9}, {
   3.7149258652268667`*^9, 3.714925953487383*^9}, {3.71492600096751*^9, 
   3.714926119019596*^9}, {3.714926175338132*^9, 3.714926196305581*^9}, 
   3.7149262352489967`*^9, {3.714926307824396*^9, 3.7149264095004387`*^9}, {
   3.714926450015284*^9, 3.7149265295624437`*^9}, {3.7149265755610447`*^9, 
   3.714926579417263*^9}, {3.714926655695353*^9, 3.714926765295703*^9}, {
   3.714927064423978*^9, 3.714927159155733*^9}, {3.7149272069557753`*^9, 
   3.7149276407442627`*^9}, {3.714927818589819*^9, 3.714927894002508*^9}, {
   3.715014199691877*^9, 3.7150142148573313`*^9}, {3.7150641849014177`*^9, 
   3.715064208336918*^9}, {3.715066724458549*^9, 3.715066727346246*^9}, {
   3.7150668733949633`*^9, 3.7150669069213676`*^9}, {3.715066957743388*^9, 
   3.7150670945197363`*^9}, {3.7150671517826033`*^9, 3.71506716730866*^9}, {
   3.7150674555066233`*^9, 3.7150674630550756`*^9}, 3.715327866692709*^9, {
   3.71774092056946*^9, 3.717740920587577*^9}, 3.7265614331647253`*^9, 
   3.7276752941593733`*^9, 3.7276767839805813`*^9, {3.728760781864067*^9, 
   3.7287607828225946`*^9}, {3.728766803061042*^9, 3.7287668218759413`*^9}, 
   3.728770283214877*^9, {3.730054697782065*^9, 3.730054698221176*^9}, {
   3.7300574692575827`*^9, 3.7300574868412457`*^9}, {3.730058435643704*^9, 
   3.730058435802568*^9}, {3.730058620360833*^9, 3.73005864540763*^9}, {
   3.7300587067907143`*^9, 3.730058724598506*^9}, {3.7300592235157948`*^9, 
   3.730059224427006*^9}, {3.730059279835189*^9, 3.730059284459189*^9}, {
   3.7300608042174263`*^9, 3.730060805888069*^9}, {3.7303831895898027`*^9, 
   3.7303831963897038`*^9}, {3.730395176711034*^9, 3.730395202212804*^9}, {
   3.730395349800102*^9, 3.730395368486767*^9}, {3.730395422453882*^9, 
   3.7303954240069523`*^9}, 3.7303958767970943`*^9, {3.7303960517966127`*^9, 
   3.7303960599069977`*^9}, {3.7303961470191793`*^9, 
   3.7303961694098387`*^9}, {3.730396435147455*^9, 3.730396462049367*^9}, {
   3.7303965227290487`*^9, 3.730396600446106*^9}, {3.7303967029735813`*^9, 
   3.730396703099786*^9}, {3.759519279416449*^9, 3.759519279686451*^9}, 
   3.762793093139943*^9, {3.7869679811010838`*^9, 3.786967982755187*^9}, {
   3.7869682134959517`*^9, 3.786968215352502*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[581]:=",
 CellID->1218923049,ExpressionUUID->"534fc01e-6fb8-4877-b0f1-63b48b6493f2"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[24324, 696, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"d51a5eed-0935-4ce8-9aa7-6eff29c0c8e9",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 40625, 1055}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"612fdf3e-8c10-4462-9ddb-ea0ecd2ff352",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"57d20473-07f0-43e8-92b3-265380fd2444",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"bae616d2-63c1-499f-8b25-4bf19fc44cd5",
 CellID->686433507],
Cell[1446, 45, 175, 3, 30, "Categorization",ExpressionUUID->"be95b7e4-c8ac-4b51-88c5-50b36e7fdeaf",
 CellID->605800465],
Cell[1624, 50, 172, 3, 30, "Categorization",ExpressionUUID->"bcfa5e36-8c84-4ae0-94a7-f097f6bfb0ec",
 CellID->468444828],
Cell[1799, 55, 165, 2, 30, "Categorization",ExpressionUUID->"91a8060e-55cc-483e-8b3c-a71d47c5fee8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2001, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"2966f816-dae4-42fa-b55a-a323941ab013",
 CellID->477174294],
Cell[2114, 65, 100, 1, 70, "Keywords",ExpressionUUID->"8fc50a80-e45f-4216-ab5f-1a80291c320d",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2251, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"d97a6f11-0f28-4050-a954-e879cd37c4fa",
 CellID->1872225408],
Cell[2374, 74, 149, 2, 70, "Template",ExpressionUUID->"c0861ac3-41c7-484c-8fe7-0c1003d54e78",
 CellID->1562036412],
Cell[2526, 78, 137, 2, 70, "Template",ExpressionUUID->"c1885ae9-9644-4053-b16c-356b531d7d2a",
 CellID->158391909],
Cell[2666, 82, 136, 2, 70, "Template",ExpressionUUID->"6063ff89-6c86-42f7-ad78-2dae9a8abdc2",
 CellID->1360575930],
Cell[2805, 86, 137, 2, 70, "Template",ExpressionUUID->"81636f6b-af2d-4534-bfb7-e68f381943fc",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2979, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"5dd94c94-37bf-469a-866e-cd950d4fdb3e",
 CellID->307771771],
Cell[3090, 96, 118, 2, 70, "Details",ExpressionUUID->"9d52bdea-2ed0-483e-b489-f992f15f2e10",
 CellID->670882175],
Cell[3211, 100, 124, 2, 70, "Details",ExpressionUUID->"d14f8529-fc63-45c9-8656-12001ef9489b",
 CellID->350963985],
Cell[3338, 104, 119, 2, 70, "Details",ExpressionUUID->"64a0dd09-8b54-41cd-9ed0-c3758ea866be",
 CellID->8391405],
Cell[3460, 108, 124, 2, 70, "Details",ExpressionUUID->"f673a2cd-dc9f-4a84-bed1-d32eb98874a6",
 CellID->3610269],
Cell[3587, 112, 116, 2, 70, "Details",ExpressionUUID->"02c220fe-6362-42b0-a2f0-43e073c4d1a9",
 CellID->401364205],
Cell[3706, 116, 116, 2, 70, "Details",ExpressionUUID->"2f98b245-5e7d-41db-855a-ee418a8e6681",
 CellID->350204745],
Cell[3825, 120, 118, 2, 70, "Details",ExpressionUUID->"c633fa7f-10db-405b-9b94-bcc0e4f4ffbd",
 CellID->732958810],
Cell[3946, 124, 133, 2, 70, "Details",ExpressionUUID->"3cd4a843-3e43-4574-9fe9-0dcd4896bf67",
 CellID->222905350],
Cell[4082, 128, 122, 2, 70, "Details",ExpressionUUID->"ae793c94-8f28-486d-bbce-c2272a60dc7c",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4241, 135, 109, 1, 63, "ObjectName",ExpressionUUID->"4be18f1d-0981-4644-8a3e-ce9afe477d82",
 CellID->1224892054],
Cell[4353, 138, 5422, 155, 205, "Usage",ExpressionUUID->"d5b2b517-b745-4bfe-adf8-b3ae449b7588",
 CellID->982511436],
Cell[9778, 295, 1355, 27, 25, "Notes",ExpressionUUID->"7418550b-5c1c-4e5d-acc2-d3c70b3a0372",
 CellID->1893739479],
Cell[11136, 324, 713, 20, 44, "Input",ExpressionUUID->"0db8fcd3-987b-4826-8d30-debb49625007",
 CellID->1624237561],
Cell[11852, 346, 352, 6, 41, "Notes",ExpressionUUID->"64990321-3621-40bb-9c86-b8038ec82f2b",
 CellID->1067943069],
Cell[12207, 354, 1073, 29, 41, "Notes",ExpressionUUID->"3a560731-d07d-48b1-ac39-b367e3719c76",
 CellID->1681679693],
Cell[13283, 385, 165, 2, 25, "Notes",ExpressionUUID->"ac66bd08-7634-4bc1-ab4a-87103d579cfe",
 CellID->676761489],
Cell[13451, 389, 1510, 34, 45, "3ColumnTableMod",ExpressionUUID->"122801e5-c98f-49bd-b397-4c9afcc0bb7c",
 CellID->410498224],
Cell[14964, 425, 590, 15, 28, "Notes",ExpressionUUID->"f39bd35b-7d90-4902-aa71-5e5ecd82e43a",
 CellID->1532155969]
}, Open  ]],
Cell[CellGroupData[{
Cell[15591, 445, 112, 1, 44, "TutorialsSection",ExpressionUUID->"9f891c0d-a67d-4129-91b7-6866821bd7c1",
 CellID->250839057],
Cell[15706, 448, 100, 1, 16, "Tutorials",ExpressionUUID->"6303d86c-b650-4ce6-9757-bb8ac70a3a1e",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[15843, 454, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"939da9c9-cf32-4843-aaeb-9f89ede1f955",
 CellID->1268215905],
Cell[15984, 457, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"6957092e-3ca8-4db7-b6f4-35972687b031",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[16134, 463, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"ae43e54e-b633-4498-b6de-d64920a8b0a1",
 CellID->1584193535],
Cell[16257, 466, 104, 1, 16, "RelatedLinks",ExpressionUUID->"47e1ae21-0103-4110-a941-1446f5fae577",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[16398, 472, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"e106f8af-6a41-45f7-a8b1-59f8263f232e",
 CellID->1255426704],
Cell[16511, 475, 1317, 33, 38, "SeeAlso",ExpressionUUID->"821bf1f1-e0ae-4591-b215-d13056713e70",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[17865, 513, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"9d31dd4c-fd69-49bc-a64c-4498a5f798bf",
 CellID->38303248],
Cell[17980, 516, 101, 1, 16, "MoreAbout",ExpressionUUID->"8836dd98-c1ad-4102-a962-3db8b5151225",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[18118, 522, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"368056a2-beed-43f6-9622-8369e3972954",
 CellID->880084151],
Cell[CellGroupData[{
Cell[18554, 537, 416, 9, 29, "Input",ExpressionUUID->"98ab30b5-a4c0-4b79-9fbf-8f055dc8ed01",
 CellID->1915191534],
Cell[18973, 548, 271, 6, 29, "Output",ExpressionUUID->"189375e1-f983-42bd-b37e-f2532df88d16",
 CellID->739835458]
}, Open  ]],
Cell[CellGroupData[{
Cell[19281, 559, 298, 6, 29, "Input",ExpressionUUID->"0cb93d8d-3921-4672-a0be-66fb1f3d292c",
 CellID->1543942913],
Cell[19582, 567, 435, 8, 30, "Output",ExpressionUUID->"2c68be77-48db-45af-a71b-7498f1ecccc6",
 CellID->1317266411]
}, Open  ]],
Cell[CellGroupData[{
Cell[20054, 580, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"cd36143f-b8c8-445c-8f4b-f7a3d8c45cab",
 CellID->2115782080],
Cell[CellGroupData[{
Cell[20322, 589, 492, 9, 29, "Input",ExpressionUUID->"125c6368-4bb8-4793-9ec7-6d1d14fef282",
 CellID->734632337],
Cell[20817, 600, 593, 11, 29, "Output",ExpressionUUID->"e1fe69bc-39a5-4661-a62c-14859f9e9e6a",
 CellID->130306162]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21459, 617, 242, 5, 17, "ExampleDelimiter",ExpressionUUID->"20f6e2a9-1a83-468b-8d1d-3c4fd52b209c",
 CellID->123440265],
Cell[CellGroupData[{
Cell[21726, 626, 821, 18, 29, "Input",ExpressionUUID->"ac14fb79-1ee5-4b71-ad20-251f1e134a9f",
 CellID->570163944],
Cell[22550, 646, 485, 12, 29, "Output",ExpressionUUID->"cfa77a0c-0902-4eee-906f-e7f71d031e64",
 CellID->819635787]
}, Open  ]],
Cell[CellGroupData[{
Cell[23072, 663, 271, 5, 26, "Input",ExpressionUUID->"893e7845-57ca-4e79-8789-fe117da5315a",
 CellID->156216768],
Cell[23346, 670, 917, 19, 29, "Output",ExpressionUUID->"14dbe0ab-905b-407e-9ec6-b72a332853e9",
 CellID->1972924637]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24324, 696, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"d51a5eed-0935-4ce8-9aa7-6eff29c0c8e9",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[24482, 700, 242, 5, 33, "ExampleSection",ExpressionUUID->"cd583f53-e6b5-43ee-8bf7-59dbd220af4e",
 CellID->1293636265],
Cell[24727, 707, 265, 5, 21, "ExampleSection",ExpressionUUID->"53f3eae3-63a9-4d74-aeb6-8b063894936e",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[25017, 716, 244, 5, 21, "ExampleSection",ExpressionUUID->"3c6a69d7-f37a-444b-a7d7-5e784194557f",
 CellID->2061341341],
Cell[25264, 723, 247, 5, 24, "ExampleSubsection",ExpressionUUID->"363efe14-ac83-48cb-9dbe-a6f769061cf9",
 CellID->1757724783],
Cell[25514, 730, 247, 5, 20, "ExampleSubsection",ExpressionUUID->"a37457e8-0a03-41ef-a94e-58ea2a2dc5cf",
 CellID->1295379749]
}, Closed]],
Cell[25776, 738, 248, 5, 21, "ExampleSection",ExpressionUUID->"cc0cf266-405a-4095-859c-7d24610785f2",
 CellID->258228157],
Cell[26027, 745, 259, 5, 21, "ExampleSection",ExpressionUUID->"ba25c43f-0d77-42ca-966c-7b5df5812c5b",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[26311, 754, 252, 5, 21, "ExampleSection",ExpressionUUID->"5b34baa7-e3a6-42b1-829c-e2691fe914e8",
 CellID->1305812373],
Cell[CellGroupData[{
Cell[26588, 763, 581, 11, 29, "Input",ExpressionUUID->"15c1cd50-9faf-4707-b2a0-4d5b0f6dc425",
 CellID->454824660],
Cell[27172, 776, 652, 12, 22, "Message",ExpressionUUID->"4fd7c52f-4af7-4ef0-b55f-d07976fbfa07",
 CellID->524089072],
Cell[27827, 790, 563, 8, 25, "Output",ExpressionUUID->"078712fa-e76f-4c91-b392-51d9e2077793",
 CellID->1534596757]
}, Open  ]]
}, Open  ]],
Cell[28417, 802, 257, 5, 33, "ExampleSection",ExpressionUUID->"9e115049-a7e2-4feb-b7ed-ef6f8d2516c4",
 CellID->1653164318],
Cell[28677, 809, 249, 5, 21, "ExampleSection",ExpressionUUID->"9a93682f-a146-45d1-b957-347d5d0c6d68",
 CellID->589267740],
Cell[CellGroupData[{
Cell[28951, 818, 424, 9, 21, "ExampleSection",ExpressionUUID->"05ae52c2-7b11-45fa-acb8-52003533d18b",
 CellID->1864838535],
Cell[29378, 829, 1282, 29, 188, "Input",ExpressionUUID->"6299f8c8-4c2e-4b04-9510-586bbb4cf17f",
 InitializationCell->False,
 CellID->1404171876],
Cell[30663, 860, 9536, 177, 673, "Input",ExpressionUUID->"534fc01e-6fb8-4877-b0f1-63b48b6493f2",
 InitializationCell->False,
 CellID->1218923049]
}, Closed]]
}, Open  ]]
}
]
*)

